home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pctalk3.fix < prev    next >
Encoding:
Text File  |  1983-09-20  |  512 b   |  7 lines
  1. 210 DFNUM=29:DIM DP$(29):DIM D$(29):DIM DT$(29)
  2. 5231 FOR I= 1 TO DFNUM:DT$(I)=D$(I):NEXT
  3. 5260 GOSUB 2500:IF Q$=CHR$(27) THEN GOSUB 2655:GOSUB 2655:ABORT=-1 ELSE IF Q$<>"" THEN DT$(I)=Q$:IF DT$=" " THEN DT$(I)=""
  4. 5271 FOR I=1 TO DFNUM:D$(I)=DT$(I):NEXT
  5. 9035 IF ERL=5280 THEN BEEP:GOSUB 5295:PRINT TAB(31)"*** Invalid communication parameter. Try again.";:EXIT=0:RESUME 5215
  6. 9999 DATA 830424
  7.